home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib13.dsk / HPLOT ANIM LISTING 5.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  39 lines
  1. 50  REM  REQUIRES: M/L DRIVER AND SHAPES #146 AND 147 TO BE BLOADED INTO MEMORY TO RUN.
  2. 99  REM  POKE SHAPE #146 INTO MEMORY
  3. 100  FOR X = 37376 TO 37391: READ A: POKE X,A: NEXT : POKE 207,20: POKE 251,146: CALL 38167: REM  POKE SHAPE #146 IN MEMORY/MOVE IT RIGHT
  4. 105  DATA  5,252,0,50,233,0,50,240,0,55,233,0,50,240,0,45
  5. 110  POKE 252,0: REM  TELL REVDIR WE USED RULE #5-OPTION A
  6. 120  FOR X = 37120 TO 37135: READ A: POKE X,A: NEXT : REM  POKE SHAPE #145 IN MEMORY
  7. 130  DATA  5,133,0,5,147,0,5,147,0,20,133,0,20,133,0,5
  8. 199  REM  MODIFY FLIP ROUTINES FOR MULTIPLE SHAPES/SET INCREMENT
  9. 200  POKE 38333,96: POKE 38377,96: POKE 207,4
  10. 202  POKE 37906,96: POKE 37956,96: POKE 253,2
  11. 205  HGR : HGR2 : REM  CLEAR THE HI-RES SCREENS
  12. 210  FOR X = 1 TO 30
  13. 215  REM  DISPLAY PAGE 1-DRAW PAGE 2
  14. 220  POKE 251,147: POKE 38165,204: CALL 38312: REM  MOVE SHAPE #147 -->
  15. 240  POKE 251,146: POKE 38165,226: CALL 38365: REM  MOVE SHAPE #146 <--
  16. 245  POKE 251,145: CALL 37891: REM  MOVE SHAPE #145 DOWN
  17. 255  REM  DISPLAY PAGE 2-DRAW PAGE 1
  18. 260  POKE 251,147: POKE 38165,204: CALL 38344: REM  MOVE SHAPE #147 -->
  19. 270  POKE 251,145: POKE 38165,226: CALL 37916: REM  MOVE SHAPE #145 DOWN
  20. 280  POKE 251,146: CALL 38387: REM  MOVE SHAPE #146 <--
  21. 285  NEXT 
  22. 290  POKE 230,64: CALL 38167: CALL 38095: REM  ERASE ARROW ON PAGE 2
  23. 295  POKE 230,32: CALL 38196: CALL 38095: REM  ERASE ARROW ON PAGE 1
  24. 300  CALL 37982: CALL 38102: REM  REVERSE AND REDRAW ARROW
  25. 310  REM  GO BACK THE OTHER DIRECTION
  26. 320  FOR X = 1 TO 30
  27. 325  REM  DISPLAY PAGE 1-DISPLAY PAGE 2
  28. 330  POKE 251,147: POKE 38165,204: CALL 38356: REM  MOVE SHAPE #147 <--
  29. 350  POKE 251,146: POKE 38165,226: CALL 38321: REM  MOVE SHAPE #146 -->
  30. 355  POKE 251,145: CALL 37941: REM  MOVE SHAPE #145 UP ^
  31. 360  REM  DISPLAY PAGE 2-DRAW PAGE 1
  32. 370  POKE 251,147: POKE 38165,204: CALL 38378: REM  MOVE SHAPE #147 <--
  33. 380  POKE 251,145: POKE 38165,226: CALL 37966: REM  MOVE SHAPE #145 UP ^
  34. 390  POKE 251,146: CALL 38343: REM  MOVE SHAPE #146 -->
  35. 400  NEXT 
  36. 410  POKE 230,64: CALL 38196: CALL 38095: REM  ERASE ARROW ON PAGE 2
  37. 415  POKE 230,32: CALL 38167: CALL 38095: REM  ERASE ARROW ON PAGE 1
  38. 420  CALL 37982: CALL 38102: REM  REVERSE AND REDRAW ARROW
  39. 430  GOTO 210